﻿Public Class NotaIngreso

    Dim _dcacodigo As String
    Dim _dafechadoc As Date

    Sub New()

    End Sub

    Sub New(ByVal dcacod As String, ByVal dafecdoc As Date)
        Me._dcacodigo = dcacod
        Me._dafechadoc = dafecdoc
    End Sub


    Public Property DCA_Codigo() As String
        Get
            Return _dcacodigo
        End Get
        Set(ByVal value As String)
            _dcacodigo = value
        End Set
    End Property

    Public Property DA_Fecha_Doc() As Date
        Get
            Return _dafechadoc
        End Get
        Set(ByVal value As Date)
            _dafechadoc = value
        End Set
    End Property

End Class
